COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00010 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC WAVE.FUN;				< Get functions 
COMMON NEWFM INSA INSB INSC INSD INSE;
NPTIX ← 130;
*

REVRB 0 0 1;				< One "note" only
P2 7;					< should be at least 2-3" longer than
END;					<   total of all instruments

INSA 0,8;
P2 RHY/32;
RD .03;
P3 NO/R//P51 X 4/P54 X 4/P51 X 4/P57 X 4/P51 X 4/P55 X 4/P51 X 6/R//
P51 X 4/P54 X 4/P51 X 4/P57 X 4/P51 X 4/P55 X 4/P51 X 8;

P4 .5;					< amplitude .8 of maximum
P5 F1;				< amplitude function

P6 P5;				< index function is same as amplitude func
P7 "450/P3";				< modulation index when function is at 0
P8 "2*P7";			< modulation index when function is at 1
P9 2; 				< carrier frequency = P3 * P9
P10 3;				< modulation frequency = P3 * P10

P11 .5;
P12 .1;			< percentage (0 ↔ 1) of reverberation

P15 .003;		
P17 P15;

P51  .15 A5,A5  .1 CS5,CS5  .15 E5,E5  .15 A4,A4 .1 E4,E4  .15 CS4,CS4  
.2 A3,A3 ;	<  I

P54  .15 A5,A5  .1 FS5,FS5  .15 D5,D5  .15 A4,A4 .1 FS4,FS4  .15 D4,D4  
.2 D3,D3 ;  	<  IV

P57  .15 D5,D5  .1 GS5,GS5  .15 B5,B5  .15 D4,D4 .1 GS4,GS4  .15 B4,B4  
.2 GS3,GS3 ;	<  VII

P55  .15 E5,E5  .1 GS5,GS5  .15 B5,B5  .1 D4,D4 .1 GS4,GS4  .1 B4,B4  
.2 E3,E3  .1 E4,E4;	<  V

DF ALL 200.4;
END;


INSB 0 8;
P2 RHY/16X13/8./16/32X24/4;		< LE BASQUE OF MM
P3 NOT/A5//E/FS/D/E/CS/D/B4/CS5/A4/B/GS/A/A5//G/A/E/FS/E/FS/D/
E/D/E/CS/D/CS/D/B4/CS5/B4/CS5/A4/B/A/B/GS/A;
P4 .5;				< amplitude .8 of maximum
P5 F2;				< amplitude function

P6 F2;				< index function is same as amplitude func
P7 0;				< modulation index when function is at 0
P8 3;				< modulation index when function is at 1
P9 1;				< carrier frequency = P3 * P9
P10 1;				< modulation frequency = P3 * P10

P12 .08;			< percentage (0 ↔ 1) of reverberation
P34 0;
END;


INSC 0 8;
P2 RHY/16/8X6/8./16/8X6/4;
P3 NOT/R/A3/D/A/GS/A/E/A/R/A3/D/A/GS/A/E/A;
P4 .5;				< amplitude .8 of maximum
P5 F2;				< amplitude function

P6 F2;				< index function is same as amplitude func
P7 0;				< modulation index when function is at 0
P8 3;				< modulation index when function is at 1
P9 1;				< carrier frequency = P3 * P9
P10 1;				< modulation frequency = P3 * P10

P12 .08;			< percentage (0 ↔ 1) of reverberation
P34 0;
END;